home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
excel
/
we0801.exe
/
TXTRDR.XLA
(
.txt
)
< prev
next >
Wrap
Excel Spreadsheet
|
1993-05-10
|
15KB
|
446 lines
Sheet:
(0, 0) names
(0, 1) commands
(0, 2) comments
(0, 3)
(0, 4) DIALOGS
(0, 5)
(0, 6)
(0, 7)
(0, 8)
(0, 9)
(0, 10)
(0, 11)
(0, 12)
(0, 13) MENUS
(0, 14)
(0, 15)
(0, 16)
(0, 17)
(0, 18)
(1, 0)
(1, 1)
(1, 2)
(1, 3)
(1, 4) type
(1, 5) x
(1, 6) y
(1, 7) wide
(1, 8) high
(1, 9) text
(1, 10) init/result
(1, 11) names
(1, 12)
(1, 13) Names
(1, 14) Command
(1, 15) Macro
(1, 16) Key
(1, 17) Status Bar Text
(1, 18) Help
(2, 0)
(2, 1) Summary Information
(2, 2)
(2, 3)
(2, 4) box
(2, 5)
(2, 6)
(2, 7)
(2, 8)
(2, 9)
(2, 10)
(2, 11)
(2, 12)
(2, 13) cmdTextRead
(2, 14) Open T&ext
(2, 15) ReadText
(2, 16)
(2, 17) Reads text file as text only
(2, 18)
(3, 0) Title:
(3, 1) Text Reader
(3, 2)
(3, 4)
(3, 5)
(3, 6)
(3, 7) 262
(3, 8) 170
(3, 9)
(3, 10)
(4, 0) Version:
(4, 1) v2.0
(4, 2)
(4, 4) 14
(4, 5) 32
(4, 6) 9
(4, 7) 199
(4, 8) 102
(4, 9) Column Delimiter
(4, 10)
(5, 0) Author
(5, 1) John Hopper
(5, 2)
(5, 4) 11
(5, 5)
(5, 6)
(5, 7)
(5, 8)
(5, 9)
(5, 10) 3
(6, 0) Modified by
(6, 1) Mark Hopwood
(6, 2)
(6, 4) 112
(6, 5)
(6, 6)
(6, 7)
(6, 8)
(6, 9) &Tab
(6, 10)
(7, 0) Corporation:
(7, 1) Microsoft Corp.
(7, 2)
(7, 4) 112
(7, 5)
(7, 6)
(7, 7)
(7, 8)
(7, 9) &Comma
(7, 10)
(8, 0) Creation Date:
(8, 1) Monday, September 21, 1992
(8, 2)
(8, 4) 112
(8, 5)
(8, 6)
(8, 7)
(8, 8)
(8, 9) &Space
(8, 10)
(9, 0)
(9, 1)
(9, 2)
(9, 4) 112
(9, 5)
(9, 6)
(9, 7)
(9, 8)
(9, 9) &Other:
(9, 10)
(10, 0) auto_open
(10, 1) auto_open
(10, 2)
(10, 4) 206
(10, 5) 125
(10, 6) 72
(10, 7) 30
(10, 8)
(10, 9)
(10, 10)
(11, 0) mco00s.MacroName
(11, 1) Text Reade
(11, 2) name of this document
(11, 4) 1
(11, 5) 30
(11, 6) 126
(11, 7) 88
(11, 8)
(11, 9) OK
(11, 10)
(12, 0)
(12, 1)
(12, 2)
(12, 4) 2
(12, 5) 142
(12, 6) 127
(12, 7) 88
(12, 8)
(12, 9) Cancel
(12, 10)
(13, 0)
(13, 1) 5
(13, 2) Look for position for insert
(14, 0)
(14, 1) TRUE
(14, 2) If not already added...
(15, 0)
(15, 1) 5
(15, 2) add command
(15, 4) ud01.Open
(15, 5)
(15, 6)
(15, 7)
(15, 8)
(15, 9)
(15, 10)
(16, 0)
(16, 1) 4
(16, 2)
(16, 7) 538
(16, 8) 137
(16, 10) 2
(17, 0)
(17, 1) TRUE
(17, 2)
(17, 4) 5
(17, 5) 10
(17, 6) 6
(17, 9) Select the text file to be opened:
(18, 0)
(18, 1) TRUE
(18, 2) Else (already added)...
(18, 4) 6
(18, 5) 10
(18, 6) 27
(18, 7) 160
(18, 10) *.txt
(19, 0)
(19, 1) #N/A!
(19, 2) Delete old one, just in case
(19, 4) 18
(19, 5) 10
(19, 6) 47
(19, 7) 160
(19, 8) 84
(20, 0)
(20, 1) 5
(20, 2) add command
(20, 4) 19
(20, 5) 178
(20, 6) 47
(20, 7) 160
(20, 8) 84
(21, 0)
(21, 1) FALSE
(21, 2)
(21, 4) 5
(21, 5) 178
(21, 6) 30
(21, 7) 300
(21, 8) 12
(22, 0)
(22, 1) TRUE
(22, 2)
(22, 4) 1
(22, 5) 439
(22, 6) 62
(22, 7) 88
(22, 9) OK
(23, 0)
(23, 1) TRUE
(23, 2)
(23, 4) 2
(23, 5) 439
(23, 6) 91
(23, 7) 88
(23, 9) Cancel
(24, 0)
(24, 1)
(24, 2)
(25, 0)
(25, 1)
(25, 2)
(26, 0) auto_close
(26, 1) auto_close
(26, 2)
(27, 0)
(27, 1) remove menus we added here
(27, 2)
(28, 0) mcc04.DeleteMenus.
(28, 1) mcc04.DeleteMenus.
(28, 2)
(29, 0)
(29, 1)
(29, 2)
(30, 0)
(30, 1) TRUE
(30, 2)
(31, 0)
(31, 1) TRUE
(31, 2) Delete command
(32, 0)
(32, 1) TRUE
(32, 2)
(33, 0)
(33, 1) TRUE
(33, 2)
(34, 0)
(34, 1) TRUE
(34, 2)
(35, 0)
(35, 1)
(35, 2)
(36, 0)
(36, 1)
(36, 2)
(37, 0) ReadText
(37, 1) ReadText
(37, 2)
(38, 0)
(38, 1) TRUE
(38, 2) Sets the value of the get dialog to look for text files
(39, 0) doopen
(39, 1) FALSE
(39, 2) Get dialog
(40, 0)
(40, 1) TRUE
(40, 2) Quit if open dialog was canceled
(41, 0)
(41, 1) TRUE
(41, 2)
(42, 0)
(42, 1) TRUE
(42, 2) Resets delimiter dialog settings
(43, 0)
(43, 1) TRUE
(43, 2) Resets delimiter dialog settings
(44, 0)
(44, 1) TRUE
(44, 2) Resets delimiter dialog settings
(45, 0)
(45, 1) FALSE
(45, 2) Delimiter dialog
(46, 0)
(46, 1) TRUE
(46, 2)
(47, 0)
(47, 1) TRUE
(47, 2)
(48, 0)
(48, 1) TRUE
(48, 2)
(49, 0)
(49, 1) TRUE
(49, 2)
(50, 0)
(50, 1) TRUE
(50, 2)
(51, 0)
(51, 1) FALSE
(51, 2)
(52, 0)
(52, 1) TRUE
(52, 2)
(53, 0)
(53, 1) TRUE
(53, 2)
(54, 0)
(54, 1) TRUE
(54, 2) Sets the delimiter to a tab
(55, 0)
(55, 1) TRUE
(55, 2)
(56, 0)
(56, 1) FALSE
(56, 2) Sets the delimiter to a comma
(57, 0)
(57, 1) TRUE
(57, 2)
(58, 0)
(58, 1) FALSE
(58, 2) Sets the delimiter to a space
(59, 0)
(59, 1) TRUE
(59, 2)
(60, 0)
(60, 1) TRUE
(60, 2) Sets the delimiter to whatever is typed into the delimiter dialog
(61, 0)
(61, 1) TRUE
(61, 2)
(62, 0)
(62, 1) TRUE
(62, 2) If the other delimiter choice was made this makes sure that a single character is entered as the delimiter
(63, 0)
(63, 1) TRUE
(63, 2)
(64, 0)
(64, 1) TRUE
(64, 2)
(65, 0)
(65, 1) FALSE
(65, 2)
(66, 0)
(66, 1) TRUE
(66, 2) Create new sheet to import data to
(67, 0)
(67, 1) Sheet
(67, 2) Remember sheet name to put values in
(68, 0)
(68, 1) 0
(68, 2) Open the text file
(69, 0)
(69, 1) TRUE
(69, 2) Set current destination column
(70, 0)
(70, 1) TRUE
(70, 2) Set current destination row
(71, 0)
(71, 1) TRUE
(71, 2) Set word string (starts with ' so it's text)
(72, 0)
(72, 1) TRUE
(72, 2) Read a character
(73, 0)
(73, 1) TRUE
(73, 2) If error, done with file
(74, 0)
(74, 1) TRUE
(74, 2) If tab....
(75, 0)
(75, 1) TRUE
(75, 2) Enter "word"
(76, 0)
(76, 1) TRUE
(76, 2) move over one column
(77, 0)
(77, 1) TRUE
(77, 2) Get more stuff
(78, 0)
(78, 1) TRUE
(78, 2) If CR...
(79, 0)
(79, 1) TRUE
(79, 2) skip
(80, 0)
(80, 1) TRUE
(80, 2) If LF...
(81, 0)
(81, 1) TRUE
(81, 2) Enter "word"
(82, 0)
(82, 1) TRUE
(82, 2) move back to first column
(83, 0)
(83, 1) TRUE
(83, 2) and down one row
(84, 0)
(84, 1) TRUE
(84, 2) Get more stuff
(85, 0)
(85, 1) TRUE
(85, 2) Else ("regular" character)
(86, 0)
(86, 1) TRUE
(86, 2) put on the end of the "word"
(87, 0)
(87, 1) TRUE
(87, 2) End.if
(88, 0)
(88, 1) TRUE
(88, 2) Loop for more
(89, 0)
(89, 1)
(89, 2)
(90, 0) Done
(90, 1)
(90, 2) Done (all characters read)
(91, 0)
(91, 1) TRUE
(91, 2) Put last "word" in
(92, 0) CloseIt
(92, 1) 0
(92, 2) Close the file
(93, 0)
(93, 1) TRUE
(93, 2)
(.txt)
(.txt)